`qC1` <-
function(rule, data)
{
	# qC1
	return (qColman(rule, data)*(2+qCohen(rule, data))/3)
}

